home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / misc / vb30 / vb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-07  |  3.0 KB  |  79 lines
  1. program VocabularyBuilder;
  2.  
  3. {************************************************************************}
  4. {*                                                                      *}
  5. {*                                VB                                    *}
  6. {*                                                                      *}
  7. {*                 Foreign Language Vocabulary Builder                  *}
  8. {*                                                                      *}
  9. {*    Copyright (C) 1985, Norman C. Saunders and Frances M. Coniglio    *}
  10. {*                                                                      *}
  11. {************************************************************************}
  12.  
  13. const
  14.   Language  : string[10]   = 'French';     { default language      }
  15.   Extent    : string[3]    = 'FRE';        { default file type     }
  16.   LangFlag                 = '@';
  17.   VerMsg                   = 'v3.0';
  18.   Time                     = 2000;         { time delay constant   }
  19.   BEL                      = $07;          { ASCII bell            }
  20.   CR                       = $0D;          { ASCII carriage return }
  21.   LF                       = $0A;          { ASCII line feed       }
  22.   FF                       = $0C;          { ASCII form feed       }
  23.  
  24. type
  25.   AnyString                = string[255];
  26.   TextString               = string[80];
  27.   FullWord                 = string[40];
  28.   FileName                 = string[12];
  29.   ListName                 = string[8];
  30.   FileExtent               = string[3];
  31.   WordPair                 = record
  32.                                EnglishWord     : FullWord;
  33.                                ForeignWord     : FullWord;
  34.                              end;
  35.   ListFile                 = file of WordPair;
  36.   WordList                 = array [1..25] of WordPair;
  37.   Ordering                 = array [1..25] of integer;
  38.   OrderFlag                = array [1..25] of char;
  39.   Charset                  = set of char;
  40.  
  41. var
  42.   Response                 : char;
  43.  
  44. {$I VBDIRCPM.INC}
  45. {$I VB-BLK1.INC}
  46. {$I VB-BLK2.INC}
  47. {$I VB-BLK3.INC}
  48.  
  49. {************************************************************************}
  50. {*                                                                      *}
  51. {*                            VB Main Program                           *}
  52. {*                                                                      *}
  53. {************************************************************************}
  54.  
  55.  
  56. begin
  57.   InitLanguage;
  58.   PrintCopyright;
  59.   repeat
  60.     PrintMainMenu;
  61.     case Response of
  62.       'A'   : AddWordList;
  63.       'C'   : ChangeLanguage;
  64.       'D'   : DeleteWordList;
  65.       'E'   : EditWordList;
  66.       'I'   : PrintIntroMenu;
  67.       'M'   : MakeWordList;
  68.       'P'   : PrintWordList;
  69.       'Q'   : ClrScr;
  70.       'R'   : RenameWordList;
  71.       'S'   : StudyWordList;
  72.       'T'   : TestWordList;
  73.       'W'   : DoDirList;
  74.     end
  75.   until Response = 'Q'
  76. end.
  77.  
  78.  
  79.